home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / basicos2.zip / FORM.BAS < prev    next >
BASIC Source File  |  1996-02-11  |  2KB  |  29 lines
  1. 10 cls
  2. 15 y_offset = 3
  3. 20 gosub 1000
  4. 30 x=17:y=y_offset+7:gosub 2000:server$=in$
  5. 40 x=17:y=y_offset+10:gosub 2000:printer$=in$
  6. 50 x=37:y=y_offset+5:gosub 2000:display_port$=in$
  7. 60 x=37:y=y_offset+8:gosub 2000:filter_on$=in$
  8. 70 x=48:y=y_offset+10:gosub 2000:filter$=in$
  9. 80 cls:end
  10. 1000 cursor(0,y_offset)
  11. 1005 print"┌──┬──────────────────────────────────────────────────────────────────────┐"
  12. 1010 print"│..│ Sample Text Input Form                                               │"
  13. 1020 print"├──┴──────────────────────────────────────────────────────────────────────┤"
  14. 1030 print"│                                                                         │"
  15. 1040 print"│                                   ┌─┐                                   │"
  16. 1050 print"│ ┌─ Print Destination ───────────┐ │Y│ Display port settings on print    │"
  17. 1060 print"│ │             ┌────────────────┐│ └─┘                                   │"
  18. 1070 print"│ │ LPD server  │                ││ ┌─┐                                   │"
  19. 1080 print"│ │             └────────────────┘│ │Y│ Enable data filter                │"
  20. 1090 print"│ │             ┌────────────────┐│ └─┘        ┌────────────────────────┐ │"
  21. 1100 print"│ │ LPD printer │                ││     Filter │                        │ │"
  22. 1110 print"│ │             └────────────────┘│            └────────────────────────┘ │"
  23. 1120 print"│ └───────────────────────────────┘                                       │"
  24. 1130 print"│                                                                         │"
  25. 1140 print"└─────────────────────────────────────────────────────────────────────────┘"
  26. 1150 return
  27. 2000 cursor(x,y):input "",in$:return
  28.  
  29.